home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Dir / dir.lock < prev    next >
Encoding:
Text File  |  1998-07-06  |  1.8 KB  |  67 lines
  1. G4C
  2.  
  3. ; This is a LOCK for your amiga.
  4.  
  5. ; All it does is to put up a full screen borderless window, which will
  6. ; not close untill you give the correct pass code.
  7.  
  8.  
  9. WINBIG    0 0 0 0 ""        ; a window at 0,0, screen wide & high
  10. WinType 000010              ; borderless window, with no gadgets
  11. WinBackground SOLID 3 0     
  12.  
  13. CTEXT 200 220 "Authorised Personel Only" times.font 24 2 3 0001
  14.  
  15. xONLOAD
  16. lk_var  = ""                ; We clear the code variable
  17. lk_flag = 0
  18. GuiOpen dir.lock            ; and open the gui upon loading.
  19.  
  20. xOnOpen
  21. setgad dir.lock 1 ON
  22.  
  23. xONQUIT
  24. delvar lk_#?                ; On quitting we delete the variables
  25.  
  26. ; We declare the following xONKEY events, so that we disable the standard
  27. ; window shortcuts (with which the lock could be bypassed).
  28.  
  29. xONKEY #3       ; Control C  - Close window
  30. xONKEY #2       ; Control B  - Window to back
  31. xONKEY #5       ; Control E  - Edit window
  32. xONKEY #10      ; Control J  - Jump screen
  33. xONKEY #18      ; Control R  - Reload
  34. xONKEY #14      ; Control N  - Next Window
  35. xONKEY #17      ; Control Q  - Quit Window
  36. xONKEY #23      ; Control W  - Window size adjustment
  37. xONKEY #26      ; Control Z  - Zoom Window
  38. xONKEY #19      ; Control S  - Status
  39.  
  40. xONInactive
  41. guiwindow dir.lock FRONT
  42. guiscreen dir.lock FRONT
  43.  
  44. Text       200 60 240 14 "Input pass code wanted:" 100 NOBOX
  45. gadid 2
  46.  
  47. xTextIn    200 75 240 18 "" lk_var "" 100
  48. gadid 1
  49. if $lk_flag = 0                     ; First time - get pass code
  50.    lk_flag = 1
  51.    lk_code = $lk_var
  52.    update dir.lock 2 "Input correct pass code:" 
  53.    update dir.lock 1 ""
  54.    setgad dir.lock 1 ON
  55. else
  56.    if $lk_var = $lk_code            ; quit if correct.
  57.       GUIQUIT dir.lock
  58.    else
  59.       update dir.lock 2 "Wrong Code !!"
  60.       lk_var = ""                   ; Clear the variable for an other try.
  61.       update dir.lock 1 ""
  62.       setgad dir.lock 1 ON
  63.    endif
  64. endif
  65.  
  66.  
  67.